Power CD/Power CD ATARI-Rechner Lieben.iso/APPS/PD/EMACS/CALC.CMD

Text File | 1989-03-03 | 4.8 KB | 269 lines

; UPN-Rechner auf Keypad (HP - like)

; V. 1.0 Peter Hakenberg

; ( 16-Bit-Integer-Arithmetik, ohne Speicher)

; Belegt Makros 10 bis 31



; Rechner anschalten

28 store-macro

    set %keypad $keypad

    set $keypad TRUE

    bind-to-key execute-macro-10 FNp

    bind-to-key execute-macro-11 FNm

    bind-to-key execute-macro-12 FNn

    bind-to-key execute-macro-13 FNo

    bind-to-key execute-macro-14 FNj

    bind-to-key execute-macro-15 FNk

    bind-to-key execute-macro-16 FNl

    bind-to-key execute-macro-17 FNg

    bind-to-key execute-macro-18 FNh

    bind-to-key execute-macro-19 FNi

    bind-to-key execute-macro-20 FNr

    bind-to-key execute-macro-21 FNN

    bind-to-key execute-macro-22 FNJ

    bind-to-key execute-macro-23 FNe

    bind-to-key execute-macro-24 FNf

    bind-to-key execute-macro-27 FNc

    bind-to-key execute-macro-29 FNq

    bind-to-key execute-macro-30 FNd

    set %flag 1

    write-message %x

   !endm



; Rechner ausschalten Standard-Belegung herstellen

29 store-macro

    set $keypad %keypad

    bind-to-key begin-macro FNc

    bind-to-key end-macro    FNd

    unbind-key FNe

    unbind-key FNf

    bind-to-key previous-paragraph    FNg

    bind-to-key previous-page     FNh

    bind-to-key beginning-of-file    FNi

    bind-to-key previous-word    FNj

    unbind-key FNk

    bind-to-key next-word        FNl

    bind-to-key next-paragraph    FNm

    bind-to-key next-page        FNn

    bind-to-key end-of-file        FNo

    unbind-key FNp

    bind-to-key execute-macro-28    FNq

    unbind-key FNr

    bind-to-key grow-window        FNN

    bind-to-key shrink-window    FNJ

    write-message "[Rechner aus]"

   !endm



; Tasten 0 bis 9



10 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &tim %x 10

    write-message %x

   !endm



11 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &add &tim %x 10  1

    write-message %x

   !endm



12 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &add &tim %x 10  2

    write-message %x

   !endm



13 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &add &tim %x 10  3

    write-message %x

   !endm



14 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &add &tim %x 10  4

    write-message %x

   !endm



15 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &add &tim %x 10  5

    write-message %x

   !endm



16 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &add &tim %x 10  6

    write-message %x

   !endm



17 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &add &tim %x 10  7

    write-message %x

   !endm



18 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &add &tim %x 10  8

    write-message %x

   !endm



19 store-macro

    !if &equ %flag 2

        execute-macro-20

    !endif

    !if &gre %flag 0

        set %x 0

        set %flag 0

    !endif

    set %x &add &tim %x 10  9

    write-message %x

   !endm



;ENTER-Taste

20 store-macro

    set %t %z

    set %z %y

    set %y %x

    set %flag 1

    write-message %x

   !endm





; Rechenoperationen



21 store-macro

    set %x &add %x %y

    set %y %z

    set %z %t

    set %flag 2

    write-message %x

   !endm



22 store-macro

    !if &gre flag 0

        set %x &sub 0 %x

    !else

    set %x &sub %y %x

    set %y %z

    set %z %t

    !endif

    set %flag 2

    write-message %x

   !endm



23 store-macro

    set %x &div %y %x

    set %y %z

    set %z %t

    set %flag 2

    write-message %x

   !endm



24 store-macro

    set %x &tim %x %y

    set %y %z

    set %z %t

    set %flag 2

    write-message %x

   !endm



; clx - Auf Taste <keypad>-'('

27 store-macro

    !if &gre %flag 0

        set %x 0

    !else

        set %x &div %x 10

    !endif

    write-message %x

   !endm



; roll down - Auf Taste <keypad>-')'

30 store-macro

    set %flag 2

    set %h %x

    set %x %y

    set %y %z

    set %z %t

    set %t %h

    write-message %x

   !endm



; roll up

;31 store-macro

;    set %flag 2

;    set %h %x

;    set %x %t

;    set %t %z

;    set %z %y

;    set %y %h

;    write-message %x

;   !endm





; Initialisierung

; <Keypad>-'.' schaltet Rechner an und aus

set %x 0

bind-to-key execute-macro-28 FNq

update-screen

!if $keypad

    write-message "[Rechner installiert. ON : <Keypad>-'.']"

!else

    write-message "[Rechner installiert. ON : 'execute-macro-28']"

!endif